<!--#include file="./top.asp"-->


<%
	dim rs_stu_healthy, str_stu_healthy
	set rs_stu_healthy = server.CreateObject("Adodb.Recordset")
	str_stu_healthy = "select * from stu_healthy where stu_id = '" & request.QueryString("stu_id") & "'"
	rs_stu_healthy.open str_stu_healthy, conn, 1, 3
	
	for i = 1 to rs_stu_healthy.fields.count - 1
		rs_stu_healthy(i) = request.Form("rs_stu_healthy_" & i)
		'response.Write "rs_stu_healthy = " & rs_stu_healthy.fields(i) & "<br />"
	next
	rs_stu_healthy.update
%>
</body>
</html>

<%
	rs_stu_healthy.close
	set rs_stu_healthy = nothing
	Call closeConn()
	response.Redirect "./rpt_healthy.asp?stu_id=" & request.QueryString("stu_id")
%>